﻿
Partial Class Sitio_Default2
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim pt As New WebCredit.ORM.PersonType_ORM
        Dim pte As New WebCredit.EntityClass.PersonType_Entity
        Dim col As New System.Collections.Generic.List(Of WebCredit.EntityClass.PersonType_Entity)
        col = pt.GetAll()
        ' Do While 
        'Me.ddlTipoPersona.Items.Add(col(0).id_Tipo)
        Me.ddlTipoPersona.Items.Add(col(0).Descripcion)

        ' Loop
    End Sub
End Class
